1 SCREEN1,2,0:ONERRORGOTO9:WIDTH32:KEYOFF:DEFINTA-Z:COLOR15,0,0:DIMF(10):A$="":B$="":DATA2048,3072,4096,5120,6144,7168,9216,10240,11264,12288,13312,2020,0000220240007000070007030003000704032707500470074400770255057707
2 FORT=0TO10:READV:BASE(5)=V:SCREEN1:CLS:PRINTA$+RIGHT$(STR$(T+1),2)+B$;:F(T)=V:NEXTT:FORP=0TO3:READH$,V$:H=VAL("&H"+H$):FORT=1TOLEN(V$)STEP2:VPOKEH,VAL("&H"+MID$(V$,T,2)):H=H+1:NEXTT,P:G(0)=170:G(1)=85:FORT=0TO7:FORP=1408TO1856STEP64:VPOKEP+T,255
3 VPOKEP+T+8,G(TMOD2):VPOKEP+T+16,0:NEXTP,T:T$="":FORT=0TO10:READA,B,V$:T$=T$+CHR$(A)+CHR$(B):PRINT:PRINTV$:NEXTT:FORT=1TO5:KEYT,CHR$(127+T):KEYT+5,CHR$(132+T):NEXT:T$=T$+"":X=127:Y=95:TE=10:TC=0:C(1)=177:C(2)=176:U=248:O=185:COLOR=RESTORE
4 D=STICK(0):Z=PAD(12):X=X+(PAD(13)/8)+((D>5)-(D<5ANDD>1))*8:Y=Y+(PAD(14)/8)+((D=1ORD=2ORD=8)-(D>3ANDD<7))*8:M=(M+1)MOD14:IFX<0ORY<0THENIFX<0THENX=0:IFY<0THENY=0ELSEELSEIFY<0THENY=0ELSEELSEIFX>UORY>OTHENIFX>UTHENX=U:IFY>OTHENY=OELSEELSEIFY>OTHENY=O
5 I$=INKEY$:S=ABS((STRIG(1)ORSTRIG(0))+STRIG(3)*2):V=(X\8)*8:H=(Y\8)*8:C=(V\8)+((H\8)*32):PUTSPRITE0,(V-1,H-2),M,0:IFI$<>""THENI=INSTR(T$,I$):IFI=19THENS=2ELSEIFI>25THENBSAVECHR$(I+39),0,16383,SELSEIFI>20THENBLOADCHR$(I+44),SELSEIFI>0THENS=1:C=(I+1)\2-1
6 IFS=0ORS=3THEN4ELSEIFC>31THENVPOKEF(TE)+C,C(S):GOTO4ELSEIFC>8THENC(1)=VPEEK(F(TE)+C):ELSEIFC=8THENFORT=32TO768:VPOKEF(TE)+T,C(S):NEXT
7 IFC=7THENFORT=32TO768:VPOKE(F(TE)+T),VPEEK(F(TC)+T):NEXTELSEIFC=6THENTC=TEELSEIFC=0ORC=3THENTE=(TE+11+((C\2)*2-1))MOD11:BASE(5)=F(TE):TIME=0:FORT=0TO15:T=TIME:NEXTTELSEIFC=4ORC=5THENPUTSPRITE0,(-16,-16),0,0
8 IFINKEY$<>""THENBASE(5)=F(TE):GOTO4ELSEIF(C=4ORC=5)THENFORP=0TO10:BASE(5)=F(P):TIME=0:FORT=0TO15:T=TIME:NEXTT,P:IFC=5THENFORP=9TO1STEP-1:BASE(5)=F(P):TIME=0:FORT=0TO15:T=TIME:NEXTT,P:GOTO8ELSE8ELSE4
9 RUN:DATA500,FED6AAD6AAD6AAFEF888BEA2A2E2223E30FC849E9292F21E0030383C38300000060E1ECEE6F0E0C000444C5C4C4400000044647464440000,3800,FF8080808080808080FF000000000000C04040404040404040C0,2016,0123456789ABCDEF
10 DATA60,44,PIXEL ART ANIMATION,0,0,mouse&keyboard,0,0, prev <,62,46, next >,13,13, play ENTER(any key to stop),8,8, zig-zag BKSP,67,99, copy C,86,118, paste V,11,11, fill HOME,127,127,load F1-F5   save F6-F10,128,129,R.button/DEL for black
